home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr43 / sbdsp2b.zip / RECDSP.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-22  |  889b  |  25 lines
  1. Program RecTestDSP;
  2. {$M 65520, 0, 655000}
  3. Uses SBDSP, CRT;
  4.  
  5. Begin
  6.   Clrscr;
  7.   (* Initialize SB at ports: 220h, IRQ 5, DMA 1, HIGH DMA 5 *)
  8.   ResetDSP (2, 5, 1, 5);
  9.   WriteLn ('Sound Card DSP Version: ', GetDSPVersion);
  10.   WriteLn ('Press any key to start...');
  11.   Readkey;
  12.   WriteLn ('Recording...');
  13.   ResetMixer;   (* Reset the Sound Blaster Pro's Mixer Chip *)
  14.   (* Record a RPD file TO Disk, at 11Khz in 8 bit mono... *)
  15.   SetInputSource (NoFilter, Mic1Input); (* Recording source = Microphone...*)
  16.   SetMicVolume (7);           (* MAX volume on Mic In..          *)
  17.   RecordSoundRPD ('TESTREC.RPD', 11000);
  18.   (* Set the Sound Blaster Pro's Internal Mixer to FULL Volume, comment it *)
  19.   (* out if your system crashes on any Sound Blaster lower than a Pro      *)
  20.   SetVocVolume (15, 15);
  21.   Repeat
  22.   Until ((KeyPressed));
  23.   StopRecording;
  24.   SetMicVolume (0);
  25. End.